Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/mac/files/ID99MENU.DIR/00018_juror hilite box script.ls

Text File | 1999-04-29 | 817 b | 37 lines

property s, mycomment, myjuror
global firstjurorhilite, jurorcomments, currtitle, jurorspeaking, demofolder, talkaboutbronze

on beginSprite me
  s = me.spriteNum
  mycomment = 0
  myjuror = s - firstjurorhilite + 1
end

on prepareFrame me
  sprite(s).visible = mycomment
  if jurorspeaking = myjuror then
  end if
end

on switchtext me, thetitle
  whichcomment = getAt(getAt(jurorcomments, thetitle), myjuror)
  mycomment = (whichcomment <> EMPTY) and ((currtitle < 29) or (talkaboutbronze = 1))
end

on growup
  mycomment = 0
end

on mouseUp
  if the doubleClick then
    exit
  end if
  if soundBusy(4) and (jurorspeaking = myjuror) then
    sound stop 4
    exit
  end if
  whichcomment = getAt(getAt(jurorcomments, currtitle), myjuror)
  sound playFile 4, demofolder & whichcomment
  jurorspeaking = myjuror
end